J-Mac Electronics & Home Comics/J-Mac Electronics & Home Comics.iso/mac/J-MAC/G32F/G32_HINO.Dxr/00050.ls

Text File | 1998-01-22 | 3.3 KB | 179 lines

global i, g_no, jumplistkey, jumplistkeyz

on startMovie
  set mycursor to [1, 2]
  repeat with i = 11 to 19
    set the cursor of sprite i to mycursor
  end repeat
  set jumplistkey to ["G1", "G2", "G3", "G4", "G5", "G6", "G7"]
  set jumplistkeyz to ["Z1", "Z2", "Z3", "Z4", "Z5", "Z6", "Z7"]
  set volset to the soundLevel
  if the soundEnabled = 0 then
    set the soundEnabled to 1
  end if
end

on donext
  if (g_no + 1) = 8 then
    set g_no to 0
  end if
  go(getAt(jumplistkey, g_no + 1))
end

on doback
  if (g_no - 1) = 0 then
    set g_no to 8
  end if
  go(getAt(jumplistkey, g_no - 1))
end

on donextz
  if (g_no + 1) = 8 then
    set g_no to 0
  end if
  go(getAt(jumplistkeyz, g_no + 1))
end

on dobackz
  if (g_no - 1) = 0 then
    set g_no to 8
  end if
  go(getAt(jumplistkeyz, g_no - 1))
end

on doexit
  sound stop 1
  go("M4", "@::JMACMENU")
end

on dolinkm
  sound stop 1
  go(1, "akaTONBO")
end

on crtopen1
  puppetSprite(7, 1)
  repeat while the stillDown
    set the memberNum of sprite 7 to 6
    updateStage()
  end repeat
  set the memberNum of sprite 7 to 5
  updateStage()
  puppetSprite(7, 0)
end

on crtopen2
  puppetSprite(9, 1)
  repeat while the stillDown
    set the memberNum of sprite 9 to 10
    updateStage()
  end repeat
  set the memberNum of sprite 9 to 9
  updateStage()
  puppetSprite(9, 0)
end

on crtclose
  puppetSprite(8, 1)
  repeat while the stillDown
    set the memberNum of sprite 8 to 8
    updateStage()
  end repeat
  set the memberNum of sprite 8 to 7
  updateStage()
  puppetSprite(8, 0)
end

on crtback
  puppetSprite(21, 1)
  repeat while the stillDown
    set the memberNum of sprite 21 to 15
    updateStage()
  end repeat
  set the memberNum of sprite 21 to 14
  updateStage()
  puppetSprite(21, 0)
end

on crtnext
  puppetSprite(20, 1)
  repeat while the stillDown
    set the memberNum of sprite 20 to 13
    updateStage()
  end repeat
  set the memberNum of sprite 20 to 12
  updateStage()
  puppetSprite(20, 0)
end

on crtbackz
  puppetSprite(21, 1)
  repeat while the stillDown
    set the memberNum of sprite 21 to 31
    updateStage()
  end repeat
  set the memberNum of sprite 21 to 30
  updateStage()
  puppetSprite(21, 0)
  puppetSprite(1, 0)
end

on crtnextz
  puppetSprite(20, 1)
  repeat while the stillDown
    set the memberNum of sprite 20 to 29
    updateStage()
  end repeat
  set the memberNum of sprite 20 to 28
  updateStage()
  puppetSprite(20, 0)
  puppetSprite(1, 0)
end

on crtclose2
  puppetSprite(22, 1)
  repeat while the stillDown
    set the memberNum of sprite 22 to 17
    updateStage()
  end repeat
  set the memberNum of sprite 22 to 16
  updateStage()
  puppetSprite(22, 0)
  puppetSprite(1, 0)
end

on crtzexit
  puppetSprite(22, 1)
  repeat while the stillDown
    set the memberNum of sprite 22 to 33
    updateStage()
  end repeat
  set the memberNum of sprite 22 to 32
  updateStage()
  puppetSprite(22, 0)
  puppetSprite(1, 0)
end

on crtzoomin
  puppetSprite(23, 1)
  repeat while the stillDown
    set the memberNum of sprite 23 to 19
    updateStage()
  end repeat
  set the memberNum of sprite 23 to 18
  updateStage()
  puppetSprite(23, 0)
end

on crtzoomout
  puppetSprite(23, 1)
  repeat while the stillDown
    set the memberNum of sprite 23 to 35
    updateStage()
  end repeat
  set the memberNum of sprite 23 to 34
  updateStage()
  puppetSprite(23, 0)
  puppetSprite(1, 0)
end